object Form1: TForm1
  Left = 193
  Top = 128
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  ClientHeight = 982
  ClientWidth = 1495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 168
  TextHeight = 24
  object vp: TGLSceneViewer
    Left = 341
    Top = 0
    Width = 1154
    Height = 982
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Camera = Camera
    Buffer.BackgroundColor = clBackground
    FieldOfView = 162.630462646484400000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = vpMouseDown
    TabOrder = 0
  end
  object PanelLeft: TPanel
    Left = 0
    Top = 0
    Width = 341
    Height = 982
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alLeft
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 4
      Top = 581
      Width = 333
      Height = 5
      Cursor = crVSplit
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Align = alTop
      AutoSnap = False
      MinSize = 210
      ExplicitLeft = 7
      ExplicitTop = 420
      ExplicitWidth = 327
    end
    object TreeView: TTreeView
      Left = 4
      Top = 4
      Width = 333
      Height = 413
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Align = alTop
      BevelKind = bkTile
      BorderStyle = bsNone
      Indent = 33
      TabOrder = 0
      OnChange = TreeViewChange
      OnDblClick = TreeViewDblClick
    end
    inline frame: TFrame1
      Left = 4
      Top = 417
      Width = 333
      Height = 164
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      ExplicitLeft = 4
      ExplicitTop = 417
      ExplicitWidth = 333
      ExplicitHeight = 164
    end
    object MemoInfo: TMemo
      Left = 5
      Top = 725
      Width = 310
      Height = 229
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Align = alCustom
      Anchors = [akLeft, akTop, akBottom]
      Lines.Strings = (
        'Memo1')
      TabOrder = 2
    end
  end
  object Scene: TGLScene
    Left = 24
    Top = 16
    object dcCamera: TGLDummyCube
      CubeSize = 1.000000000000000000
      object Camera: TGLCamera
        DepthOfView = 100.000000000000000000
        FocalLength = 75.000000000000000000
        TargetObject = dcCamera
        Position.Coordinates = {0000C0C00000C0400000C0400000803F}
        object light: TGLLightSource
          ConstAttenuation = 1.000000000000000000
          SpotCutOff = 180.000000000000000000
        end
      end
    end
    object dcScene: TGLDummyCube
      CubeSize = 1.000000000000000000
      object dcSpace: TGLDummyCube
        CubeSize = 1.000000000000000000
        object Torus: TGLTorus
          MajorRadius = 3.000000000000000000
          MinorRadius = 0.200000002980232200
          Rings = 8
          StopAngle = 360.000000000000000000
          Parts = [toSides, toStartDisk, toStopDisk]
          object Disk: TGLDisk
            Material.BackProperties.Ambient.Color = {0000803FF8FEFE3E000000000000803F}
            Material.BackProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
            Material.BackProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
            Material.BackProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
            Material.FrontProperties.Ambient.Color = {0000803FF8FEFE3E000000000000803F}
            Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
            Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
            Material.FaceCulling = fcNoCull
            ObjectsSorting = osRenderNearestFirst
            Position.Coordinates = {0000004000000000000080400000803F}
            InnerRadius = 0.500000000000000000
            Loops = 1
            OuterRadius = 1.000000000000000000
            Slices = 32
            SweepAngle = 360.000000000000000000
          end
        end
        object GLCube1: TGLCube
          Position.Coordinates = {000000000000803F000000C00000803F}
          CubeSize = {000080400000004000004040}
        end
        object Frustrum: TGLFrustrum
          Position.Coordinates = {0000000000002040000000C00000803F}
          FrustrumSize = {00000041000020410000803F0000803F}
        end
        object GLCube2: TGLCube
          Position.Coordinates = {0000C0BFCDCCCC3F000000C00000803F}
          CubeSize = {0000003FCDCC4C400000003F}
        end
        object ffColumn: TGLFreeForm
          Direction.Coordinates = {000000000000803F0000000000000000}
          Up.Coordinates = {0000000000000000000080BF00000000}
        end
        object spBall: TGLSphere
          Position.Coordinates = {0000404000000000000000400000803F}
          Radius = 0.500000000000000000
        end
        object Cube: TGLCube
          Position.Coordinates = {0000803F00000000000040400000803F}
          CubeSize = {0000003F0000803F3333333F}
        end
        object Cone: TGLCone
          Position.Coordinates = {0000000000008040000080C00000803F}
          BottomRadius = 0.500000000000000000
          Height = 1.000000000000000000
        end
        object Cylinder: TGLCylinder
          Position.Coordinates = {000000C0000080C0000000C00000803F}
          BottomRadius = 0.500000000000000000
          Height = 1.000000000000000000
          TopRadius = 0.500000000000000000
        end
      end
      object dc_models: TGLDummyCube
        Visible = False
        CubeSize = 1.000000000000000000
        object _barrel: TGLRevolutionSolid
          Nodes = <
            item
              Y = 0.500000000000000000
            end
            item
              X = 0.300000011920929000
              Y = 0.500000000000000000
            end
            item
              X = 0.400000005960464500
              Y = 0.200000002980232200
            end
            item
              X = 0.400000005960464500
              Y = -0.200000002980232200
            end
            item
              X = 0.300000011920929000
              Y = -0.500000000000000000
            end
            item
              Y = -0.500000000000000000
            end>
          Slices = 8
        end
      end
    end
    object sys_dogl: TGLDirectOpenGL
      UseBuildList = False
      OnRender = sys_doglRender
      Blend = False
      object axis_lines: TGLLines
        Visible = False
        LineWidth = 2.000000000000000000
        Nodes = <
          item
            Color.Color = {0000000039B4483F000000000000803F}
          end
          item
            X = 0.500000000000000000
            Color.Color = {0000000039B4483F000000000000803F}
          end
          item
            Color.Color = {39B4483F00000000000000000000803F}
          end
          item
            Y = 0.500000000000000000
            Color.Color = {39B4483F00000000000000000000803F}
          end
          item
            Color.Color = {000000000000000039B4483F0000803F}
          end
          item
            Z = 0.500000000000000000
            Color.Color = {000000000000000039B4483F0000803F}
          end>
        NodesAspect = lnaInvisible
        SplineMode = lsmSegments
        Options = [loUseNodeColorForLines]
      end
      object bb_lines: TGLLines
        Visible = False
        Nodes = <>
        NodesAspect = lnaInvisible
        SplineMode = lsmSegments
        Options = []
      end
    end
  end
  object Cadencer: TGLCadencer
    Scene = Scene
    Mode = cmApplicationIdle
    SleepLength = 1
    OnProgress = CadencerProgress
    Left = 24
    Top = 72
  end
  object AsyncTimer: TGLAsyncTimer
    Enabled = True
    Interval = 800
    OnTimer = AsyncTimerTimer
    Left = 88
    Top = 16
  end
end
